home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-03 / qbasicpg.zip / FOR-5.BAS < prev    next >
BASIC Source File  |  1989-08-31  |  900b  |  37 lines
  1. ' FOR-5.BAS
  2. ' This program uses the SOUND statement inside a
  3. '   FOR loop to generate sound effects.
  4.  
  5. CLS
  6.  
  7. PRINT , "SOUND-EFFECTS GENERATOR"
  8. PRINT , "Please choose the sound you'd like to hear"
  9. PRINT , "from the following menu:"
  10. PRINT
  11. PRINT , "1.  Ray gun"
  12. PRINT , "2.  European siren"
  13. PRINT , "3.  Takeoff!"
  14. PRINT
  15. INPUT "              Please enter 1, 2, or 3:  ", choice%
  16. PRINT
  17.  
  18. SELECT CASE choice%
  19.     CASE 1                      ' ray gun
  20.         FOR i% = 1 TO 50
  21.             SOUND 850, .3
  22.             SOUND 800, .3
  23.             SOUND 825, .3
  24.         NEXT i%
  25.     CASE 2                      ' european siren
  26.         FOR i% = 1 TO 5
  27.             SOUND 500, 10
  28.             SOUND 450, 10
  29.         NEXT i%
  30.     CASE 3                      ' takeoff!
  31.         FOR i% = 500 TO 2500
  32.             SOUND i%, .03       ' uses value of i% for sound
  33.         NEXT i%
  34. END SELECT
  35.  
  36.  
  37.